home *** CD-ROM | disk | FTP | other *** search
- echo off
- :start
- rem normal start up routine repeats if a second start is asked for
- keybuk
- mode el 5
- mode lpt1:=com1:
- path c:\;a:\
- c:
- prompt sH$p6H$d $t9H u$g
- rem Check for A:LOG already existing attempt to rename if it does
- if exist a:log. goto changelog
- :runit
- now >logstart
- stats b 9600;t
- now >logend
- rem Copy log from RAMDISK to Floppy disk for keeping!
- copy c:log*. a:log*.
- if not errorlevel 0 goto errortime
- echo .
- rem Now ask about a restart if required this allows backups
- a:ask "start again or quit (s/q) ?",qs
- if errorlevel 2 goto start
- if errorlevel 1 goto finish
- :changelog
- :rename
- if exist a:log.bak goto bakfound
- ren a:log*. log*.bak
- if not errorlevel 0 goto errortime
- goto runit
- :bakfound
- echo .
- a:ask "A backup log has been found delete,rename or quit [d/r/q] ?",qdr
- if errorlevel 3 goto changebakname
- if errorlevel 2 goto deletelogbak
- if errorlevel 1 goto finish
- :deletelogbak
- del a:log*.bak
- if not errorlevel 0 goto errortime
- goto rename
- :changebakname
- if exist a:log2.bak goto toomuch
- ren a:log*.bak log2*.bak
- if not errorlevel 0 goto errortime
- goto runit
- :bakfound
- echo .
- a:ask "A backup log has been found delete,rename or quit [d/r/q] ?",qdr
- if errorlevel 3 goto changebakname
- if errorlevel 2 goto deletelogbak
- if errorlevel 1 goto finish
- :deletelogbak
- del a:log*.bak
- if not errorlevel 0 goto errortime
- goto rename
- :toomuch
- echo .
- echo Sorry a:log2.bak also exist's you rename it yourself!
- goto end
- :errortime
- echo .
- echo .
- echo Whoops something is wrong please takeover the driving seat!
- goto end
- :finish
- echo .
- echo .
- echo Stats run now completed your LOG file has been copied to the A: drive.
- :end
- echo .
- echo Bye